COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) MFOUT.LYL[MF,DEK] and 2) MFOUT.SAI[MF,DEK]	1-12-81 22:52	pages 1,1
C00006 00003	  1) MFOUT.LYL[MF,DEK] and 2) MFOUT.SAI[MF,DEK]	1-12-81 22:52	pages 3,3
C00009 ENDMK
C⊗;
  1) MFOUT.LYL[MF,DEK] and 2) MFOUT.SAI[MF,DEK]	1-12-81 22:52	pages 1,1

**** File 1) MFOUT.LYL[MF,DEK]/1P/6L
1)	C00014 00004	openofil
1)	C00023 00005	 comment special stuff for byte-oriented output
1)	C00027 00006	Routines for proof mode.
1)	C00047 00007	Routines for chr mode.
1)	C00052 00008	Routines for fnt mode.
1)	C00058 00009	Routines for .oc files and .wd files
1)	C00059 00010	Routines for tfm mode.
1)	C00072 00011	Routines for Alphatype fonts
1)	C00076 00012	internal procedure initout # get MFOUT started properly
1)	C00083 ENDMK
1)	C⊗;
**** File 2) MFOUT.SAI[MF,DEK]/1P/6L
2)	C00015 00004	openofil
2)	C00024 00005	 comment special stuff for byte-oriented output
2)	C00028 00006	Routines for proof mode.
2)	C00048 00007	Routines for chr mode.
2)	C00053 00008	Routines for fnt mode.
2)	C00059 00009	Routines for .oc files and .wd files
2)	C00060 00010	Routines for tfm mode.
2)	C00073 00011	Routines for Alphatype fonts
2)	C00077 00012	internal procedure initout # get MFOUT started properly
2)	C00084 ENDMK
2)	C⊗;
***************


**** File 1) MFOUT.LYL[MF,DEK]/3P/53L
1)	return(cvxstr(call(0,"GETPPN"))[4 to 6]" @ SAIL");
1)	ENDPRESS
**** File 2) MFOUT.SAI[MF,DEK]/3P/53L
2)	begin string prg, uname, nxtprg, nxtnam;
2)	integer namfil, brchar, eof, lftabbreak, ppn, i, j;
2)	ppn←call(0,"GETPPN") # ppn is in 6-bit format;
2)	prg←"" # null characters in prg would hurt, so can't use CVXSTR;
2)	for i←-12 step 6 until 0 do if (j←(ppn lsh i) land '77) then prg←prg&(j+'40);
2)	setbreak(lftabbreak←getbreak,'12&'11,'15&'15,"ISN");
2)	open(namfil←getchan,"DSK",0,2,0,150,brchar,eof);
2)	lookup(namfil,"FACT.TXT[SPL,SYS]", eof);
2)	uname←"("&prg&" @ SAIL)" # this is used for new accounts not yet in the FACT file;
2)	brchar←'12; comment we don't need to check brchar below if FACT is good;
2)	while not eof do
2)		begin if brchar='12 then nxtprg←input(namfil,lftabbreak);
2)		if brchar='11 then nxtnam←input(namfil,lftabbreak);
2)		if equ(prg,nxtprg) then
2)			begin uname←nxtnam&" "&uname; done;
2)			end;
2)		end;
  1) MFOUT.LYL[MF,DEK] and 2) MFOUT.SAI[MF,DEK]	1-12-81 22:52	pages 3,3

2)	release(namfil);
2)	relbreak(lftabbreak);
2)	return(uname);
2)	end;
2)	ENDPRESS
***************


**** File 1) MFOUT.LYL[MF,DEK]/5P/64L
1)		rembytes←numbytes mod 4;
1)		arryout(ochan[mode],memory[ptr],numwords);
1)		nextword[mode]←memory[ptr+numwords] land (-1 lsh (bitsperwd-8*rembytes));
1)		bytecount[mode]←bytecount[mode]+numbytes;	
**** File 2) MFOUT.SAI[MF,DEK]/5P/64L
2)		arryout(ochan[mode],memory[ptr],numwords);
2)		nextword[mode]←memory[ptr+numwords];
2)		bytecount[mode]←bytecount[mode]+numbytes;	
***************


**** File 1) MFOUT.LYL[MF,DEK]/12P/105L
1)		fntdir['200]←checksum;
1)		arryout(alfch,fntdir[0],'200*initblocks) # write the directories;
**** File 2) MFOUT.SAI[MF,DEK]/12P/105L
2)	comment	fntdir['200]←checksum;
2)		arryout(alfch,fntdir[0],'200*initblocks) # write the directories;
***************


**** File 1) MFOUT.LYL[MF,DEK]/12P/135L
1)		ifc WAITS and XGP thenc
1)			ptostr(0,"r xgpsyn;"&flname[proof]&"/L"); endc
1)		end;
**** File 2) MFOUT.SAI[MF,DEK]/12P/135L
2)		IFWAITS ptostr(0,
2)			IFXGP "r xgpsyn;"&flname[proof]&"/L" ENDXGP
2)			IFPRESS "dover "&flname[proof] ENDPRESS
2)			);
2)		ENDWAITS
2)		end;
***************